home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1996 February: Tool Chest / Apple Developer CD Series Tool Chest February 1996 (Apple Computer)(1996).iso / Tool Chest / Testing & Debugging / Virtual User tools / SPEC S&L v.1.0.1 / Libraries / WordProcessor.Lib < prev   
Encoding:
Text File  |  1993-12-17  |  2.0 KB  |  60 lines  |  [TEXT/MPS ]
  1. #
  2. # ****************************************************************************
  3. #
  4. #    File Name:        WordProcessor.Lib
  5. #
  6. #    Contains:    xxx put contents here xxx
  7. #
  8. #    Written by:    Kevin Avoy, Ken Landreth, Michael Leong, Gil Spencer et al
  9. #
  10. #    Copyright:    © 1993 by Apple Computer, Inc., all rights reserved.
  11. #
  12. # ****************************************************************************
  13. #            C h a n g e        H i s t o r y (most recent first):
  14. # ****************************************************************************
  15. #
  16. #        Vers      Date        Author        Description
  17. #        ----    --------    ------    ---------------------------------------------
  18. #        <1+>     5/21/93    NAGA        Adding header and porting old files to follow new standards
  19. #
  20. # ****************************************************************************
  21. #
  22.  
  23. ########################################################################
  24. #                            External libraries 
  25. #=======================================================================
  26. Libraries  "DoTasks.Lib","UserInterface.Lib";
  27.  
  28. #########################################################################
  29. #                        DoWPTools()
  30. #========================================================================
  31. # Author:        ML
  32. # Description:    Test Word Processor Tools.
  33. # Parameters:    RulerRect,TabToolList,OtherToolList,SelectAllFlag
  34. # Returns:        Nada
  35. # Examples:        DoWPTools();
  36. # Assumptions:    Word
  37. #========================================================================
  38. # History:
  39. #
  40. ########################################################################
  41. TASK DoWPTools()#(RulerRect,TabToolList,OtherToolList,SelectAllFlag:=0)
  42. begin
  43.     global RulerMenuPath,RulerRect,TabToolList,OtherToolList,SelectAllFlag;
  44.  
  45.     selectmenuitem(RulerMenuPath[1],RulerMenuPath[2]);
  46.     
  47.     if SelectAllFlag
  48.         SelectMenuItem ("Select All", "Edit");
  49.         
  50.     global gToolList:= TabToolList;
  51.     theDesc := FindWindow(0);
  52.     rect := theDesc.r;
  53.     bottomInset := rect[4]-rect[2]-RulerRect[4];
  54.     global gBoundingRect := {RulerRect[1],RulerRect[2],RulerRect[3],bottomInset};
  55.     DoDraw();
  56.     
  57.     global gToolList:= OtherToolList;
  58.     DoDraw();
  59.     
  60. end;